home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 326-350 / disk_349 / med / source / med200src.zoo / med-newintui.c < prev    next >
C/C++ Source or Header  |  1990-04-08  |  24KB  |  450 lines
  1. /* MED-newintui.c ---- Intuition-structures from V2.00 */
  2. #include "med.h"
  3. extern struct Kappale far tamakappale;
  4.  
  5. extern UWORD chip gfximg2[],chip gfximg3[],chip gfximg4[],chip gfximg5[];
  6. extern UWORD chip gfximg6[],chip gfximg7[],chip gfximg9[],chip gfximgA[];
  7. extern UWORD chip okt12data[],chip okt23data[],chip okt34data[];
  8. extern UWORD chip okt45data[],chip loadgadgets[],chip savegadgets[];
  9.  
  10. struct Image autoknobimg[8];
  11. struct Image far kuviot = { 0,0,224,45,2,gfximg2,0x3,0x0,NULL };
  12. struct Image far loadgadgimg = { 0,0,66,14,2,loadgadgets,0x3,0x0,NULL };
  13. struct Image far savegadgimg = { 0,0,66,14,2,savegadgets,0x3,0x0,NULL };
  14. struct Image far oktimg[5] = { { 0,0,13,8,2,okt12data,0x3,0x0,NULL },
  15. { 0,0,13,8,2,okt23data,0x3,0x0,NULL },{ 0,0,13,8,2,okt34data,0x3,0x0,NULL },
  16. { 0,0,13,8,2,okt45data,0x3,0x0,NULL } };
  17. char hakemisto[100],kappaleennimi[50],undo[100],toistostr[7],tpitstr[7];
  18. char presetstr[8];
  19. UWORD *imgdataptr[] = {
  20.     NULL,NULL,gfximg2,gfximg3,gfximg4,gfximg5,gfximg6,gfximg7,
  21.     NULL,gfximg9,gfximgA };
  22.  
  23. struct PropInfo propinfo[] = {
  24. { AUTOKNOB|FREEVERT|PROPBORDERLESS,MAXPOT,MAXPOT,MAXBODY,MAXBODY,0,0,0,0,0,0 },
  25. { AUTOKNOB|FREEHORIZ|PROPBORDERLESS,0x2134,MAXPOT,0x112,MAXBODY,0,0,0,0,0,0 },
  26. { AUTOKNOB|FREEHORIZ|PROPBORDERLESS,MAXPOT,MAXPOT,0x400,MAXBODY,0,0,0,0,0,0 },
  27. { AUTOKNOB|FREEHORIZ|PROPBORDERLESS,MAXPOT,MAXPOT,508,MAXBODY,0,0,0,0,0,0 },
  28. { AUTOKNOB|FREEHORIZ|PROPBORDERLESS,MAXPOT/2,MAXPOT,2621,MAXBODY,0,0,0,0,0,0 },
  29. { AUTOKNOB|FREEHORIZ|PROPBORDERLESS,0,0,MAXBODY/16,MAXBODY,0,0,0,0,0,0 },
  30. { AUTOKNOB|FREEHORIZ|PROPBORDERLESS,0,0,MAXBODY/16,MAXBODY,0,0,0,0,0,0 },
  31. { AUTOKNOB|FREEHORIZ|PROPBORDERLESS,0,0,MAXBODY/16,MAXBODY,0,0,0,0,0,0 }
  32. };
  33. struct StringInfo strinfo[] = {
  34. { hakemisto,undo,0,100,0,0,0,0,0,0,NULL,NULL,NULL },
  35. { kappaleennimi,undo,0,50,0,0,0,0,0,0,NULL,NULL,NULL },
  36. { &tamakappale.soitin[1][0],undo,0,40,0,0,0,0,0,0,NULL,NULL,NULL },
  37. { toistostr,undo,0,7,0,0,0,0,0,0,NULL,NULL,NULL },
  38. { tpitstr,undo,0,7,0,0,0,0,0,0,NULL,NULL,NULL },
  39. { presetstr,undo,0,4,0,0,0,0,0,0,NULL,NULL,NULL }
  40. };
  41. struct Gadget far gadget1[] = {
  42. { &gadget1[1],233,17,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  43.   NULL,NULL,NULL,0x102,NULL },
  44. { &gadget1[2],233,27,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  45.   NULL,NULL,NULL,0x103,NULL },
  46. { &gadget1[3],233,37,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  47.   NULL,NULL,NULL,0x104,NULL },
  48. { &gadget1[4],233,47,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  49.   NULL,NULL,NULL,0x105,NULL },
  50. { &gadget1[5],233,57,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  51.   NULL,NULL,NULL,0x106,NULL },
  52. { &gadget1[6],276,17,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  53.   NULL,NULL,NULL,0x107,NULL },
  54. { &gadget1[7],276,37,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  55.   NULL,NULL,NULL,0x109,NULL },
  56. { &gadget1[8],276,47,39,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  57.   NULL,NULL,NULL,0x10A,NULL },
  58. { &gadget1[9],179,66,5,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  59.   NULL,NULL,NULL,0xF00,NULL },    /* Editoi (E) */
  60. { &gadget1[10],186,66,9,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  61.   NULL,NULL,NULL,0xF01,NULL },    /* 2× */
  62. { NULL,164,66,13,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  63.   NULL,NULL,NULL,0xF02,NULL }    /* 1+2/2+3/3+4/4+5/5+6 */
  64. };
  65.  
  66. struct Gadget far gadget2[] = {
  67. { &gadget2[1],8,21,120,8,GADGHCOMP,RELVERIFY,BOOLGADGET,NULL,NULL,
  68.   NULL,NULL,NULL,0x200,NULL }, /* rivi1 */
  69. { &gadget2[2],8,29,120,8,GADGHCOMP,RELVERIFY,BOOLGADGET,NULL,NULL,
  70.   NULL,NULL,NULL,0x201,NULL },
  71. { &gadget2[3],8,37,120,8,GADGHCOMP,RELVERIFY,BOOLGADGET,NULL,NULL,
  72.   NULL,NULL,NULL,0x202,NULL },
  73. { &gadget2[4],8,45,120,8,GADGHCOMP,RELVERIFY,BOOLGADGET,NULL,NULL,
  74.   NULL,NULL,NULL,0x203,NULL },
  75. { &gadget2[5],8,53,120,8,GADGHCOMP,RELVERIFY,BOOLGADGET,NULL,NULL,
  76.   NULL,NULL,NULL,0x204,NULL }, /* rivi5 */
  77. { &gadget2[6],130,21,6,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  78.   NULL,NULL,NULL,0x205,NULL }, /* nuoli ylös */
  79. { &gadget2[7],130,29,6,24,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,/*selaus*/
  80.   (APTR)&autoknobimg[0],NULL,NULL,NULL,(APTR)&propinfo[0],0x206,NULL },
  81. { &gadget2[8],130,55,6,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  82.   NULL,NULL,NULL,0x207,NULL }, /* nuoli alas */
  83. { &gadget2[9],153,43,74,8,GADGHCOMP,RELVERIFY,STRGADGET,NULL,NULL,
  84.   NULL,NULL,(APTR)&strinfo[0],0x208,NULL }, /* Hak. nimi */
  85. { &gadget2[10],153,53,74,8,GADGHCOMP,RELVERIFY,STRGADGET,NULL,NULL,
  86.   NULL,NULL,(APTR)&strinfo[1],0x209,NULL }, /* Kpl nimi */
  87. { &gadget2[11],139,20,21,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  88.   NULL,NULL,NULL,0x120A,NULL }, /* Lataa */
  89. { &gadget2[12],139,27,21,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  90.   NULL,NULL,NULL,0x20B,NULL }, /* Tall. */
  91. { &gadget2[13],139,34,16,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  92.   NULL,NULL,NULL,0x20F,NULL }, /* DF0 */
  93. { &gadget2[14],157,34,16,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  94.   NULL,NULL,NULL,0x210,NULL }, /* DF1 */
  95. { &gadget2[15],175,34,16,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  96.   NULL,NULL,NULL,0x211,NULL }, /* DF2 */
  97. { &gadget2[16],193,34,16,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  98.   NULL,NULL,NULL,0x212,NULL }, /* DF3 */
  99. { &gadget2[17],213,34,16,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  100.   NULL,NULL,NULL,0x213,NULL }, /* DH0 */
  101. /* Gadget 17: Lataus */
  102. { &gadget2[18],163,20,64,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  103.   NULL,NULL,NULL,0x214,NULL },    /* Lataa kappale */
  104. { &gadget2[19],163,27,31,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  105.   NULL,NULL,NULL,0x215,NULL },    /* Lataa soitin */
  106. { NULL,196,27,31,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  107.   NULL,NULL,NULL,0x216,NULL },    /* ST MOD */
  108. /* Gadget 20: Tallennus */
  109. { &gadget2[21],163,20,31,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  110.   NULL,NULL,NULL,0x217,NULL },    /* Tall. kpl */
  111. { &gadget2[22],163,27,31,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  112.   NULL,NULL,NULL,0x218,NULL },    /* Tall. soitin */
  113. { &gadget2[23],196,20,14,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  114.   NULL,NULL,NULL,0x219,NULL },    /* ST */
  115. { &gadget2[24],196,27,14,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  116.   NULL,NULL,NULL,0x21A,NULL },    /* K+S */
  117. { &gadget2[25],212,20,15,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  118.   NULL,NULL,NULL,0x21B,NULL },    /* Obj */
  119. { NULL,212,27,15,5,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  120.   NULL,NULL,NULL,0x121C,NULL }    /* Icon */
  121. };
  122.  
  123. struct Gadget far gadget3[] = {
  124. { &gadget3[1],6,19,63,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  125.   NULL,NULL,NULL,0x300,NULL }, /* Soita kappale */
  126. { &gadget3[2],6,28,63,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  127.   NULL,NULL,NULL,0x301,NULL }, /* Soita lohkoa */
  128. { &gadget3[3],6,37,63,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  129.   NULL,NULL,NULL,0x302,NULL }, /* Lopeta soitto */
  130. { &gadget3[4],6,46,63,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  131.   NULL,NULL,NULL,0x303,NULL }, /* Jatka kappaletta */
  132. { &gadget3[5],6,55,63,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  133.   NULL,NULL,NULL,0x304,NULL }, /* Jatka lohkoa */
  134. { &gadget3[6],72,20,41,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  135.   NULL,NULL,NULL,0x1305,NULL }, /* Suodatin */
  136. { &gadget3[7],72,29,19,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  137.   NULL,NULL,NULL,0x1306,NULL }, /* Eq 1 */
  138. { &gadget3[8],156,21,6,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  139.   NULL,NULL,NULL,0x307,NULL }, /* Liuku5 */
  140. { &gadget3[9],164,21,6,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  141.   NULL,NULL,NULL,0x1308,NULL }, /* Liuku6    vvv-tempo/prop. */
  142. { &gadget3[10],85,50,131,10,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,
  143.   (APTR)&autoknobimg[1],NULL,NULL,NULL,(APTR)&propinfo[1],0x309,NULL },
  144. { &gadget3[11],75,50,6,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  145.   NULL,NULL,NULL,0x30A,NULL }, /* tempo <- */
  146. { &gadget3[12],220,50,6,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  147.   NULL,NULL,NULL,0x30B,NULL }, /* tempo -> */
  148. { &gadget3[13],193,21,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  149.   NULL,NULL,NULL,0x30C,NULL }, /* ^ */
  150. { &gadget3[14],193,33,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  151.   NULL,NULL,NULL,0x30D,NULL }, /* v */
  152. { &gadget3[15],205,21,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  153.   NULL,NULL,NULL,0x30E,NULL }, /* eka */
  154. { &gadget3[16],205,33,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  155.   NULL,NULL,NULL,0x30F,NULL }, /* viim. */
  156. { &gadget3[17],217,21,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  157.   NULL,NULL,NULL,0x310,NULL }, /* + */
  158. { &gadget3[18],217,33,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  159.   NULL,NULL,NULL,0x311,NULL }, /* - */
  160. { &gadget3[19],135,33,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  161.   NULL,NULL,NULL,0x312,NULL }, /* Lisää järj. */
  162. { &gadget3[20],148,33,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  163.   NULL,NULL,NULL,0x313,NULL }, /* Poista järj. */
  164. { &gadget3[21],161,33,10,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  165.   NULL,NULL,NULL,0x314,NULL },  /* Lisää tämä */
  166. { NULL,93,29,20,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  167.   NULL,NULL,NULL,0x1315,NULL } /* Eq 2 */
  168. };
  169.  
  170. struct Gadget far gadget4[] = {
  171. { &gadget4[1],33,20,80,8,GADGHCOMP,RELVERIFY,STRGADGET,NULL,NULL,
  172.   NULL,NULL,(APTR)&strinfo[2],0x400,NULL }, /* Soitin nimi (str) */
  173. { &gadget4[2],33,30,15,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  174.   NULL,NULL,NULL,0x401,NULL }, /* Ens. soitin */
  175. { &gadget4[3],98,30,15,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  176.   NULL,NULL,NULL,0x402,NULL }, /* Viim. soitin */
  177. { &gadget4[4],50,30,22,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  178.   NULL,NULL,NULL,0x403,NULL }, /* << */
  179. { &gadget4[5],74,30,22,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  180.   NULL,NULL,NULL,0x404,NULL }, /* >> */
  181. { &gadget4[6],33,39,80,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  182.   NULL,NULL,NULL,0x405,NULL }, /* Lataa soitin */
  183. { &gadget4[7],7,30,24,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  184.   NULL,NULL,NULL,0x406,NULL }, /* Ukko */
  185. { &gadget4[8],7,39,24,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  186.   NULL,NULL,NULL,0x407,NULL }, /* Poista */
  187. { &gadget4[9],179,30,48,8,GADGHCOMP,RELVERIFY|LONGINT,STRGADGET,NULL,NULL,
  188.   NULL,NULL,(APTR)strinfo[3],0x408,NULL }, /* Toisto/alk. */
  189. { &gadget4[10],179,40,48,8,GADGHCOMP,RELVERIFY|LONGINT,STRGADGET,NULL,NULL,
  190.   NULL,NULL,(APTR)strinfo[4],0x409,NULL }, /* Toisto/pit. */
  191. { &gadget4[11],77,51,6,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  192.   NULL,NULL,NULL,0x40A,NULL }, /* <- voim  vv-voim prop. */
  193. { &gadget4[12],87,51,131,10,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,
  194.   (APTR)&autoknobimg[2],NULL,NULL,NULL,(APTR)&propinfo[2],0x40B,NULL },
  195. { NULL,222,51,6,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  196.   NULL,NULL,NULL,0x40C,NULL } /* -> voim */
  197. };
  198.  
  199. struct Gadget far gadget5[] = {
  200. { &gadget5[1],66,26,41,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  201.   NULL,NULL,NULL,0x500,NULL }, /* Uusi tähän */
  202. { &gadget5[2],66,38,41,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  203.   NULL,NULL,NULL,0x501,NULL }, /* Tuhoa tämä */
  204. { &gadget5[3],7,50,57,11,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  205.   NULL,NULL,NULL,0x504,NULL }, /* Uusi lohko */
  206. { &gadget5[4],66,50,41,11,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  207.   NULL,NULL,NULL,0x505,NULL }, /* Tuhoa viim. */
  208. { &gadget5[5],7,38,28,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  209.   NULL,NULL,NULL,0x506,NULL }, /* Ens. */
  210. { &gadget5[6],37,38,27,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  211.   NULL,NULL,NULL,0x507,NULL }, /* Viim. */
  212. { &gadget5[7],37,26,27,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  213.   NULL,NULL,NULL,0x508,NULL }, /* Seur. */
  214. { &gadget5[8],7,26,28,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  215.   NULL,NULL,NULL,0x509,NULL }, /* Ed. */
  216. { &gadget5[9],109,27,53,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  217.   NULL,NULL,NULL,0x50A,NULL }, /* ääni->pusk. */
  218. { &gadget5[10],109,36,53,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  219.   NULL,NULL,NULL,0x50B,NULL }, /* xxxx->pusk. */
  220. { &gadget5[11],109,45,53,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  221.   NULL,NULL,NULL,0x50C,NULL }, /* ääni<-pusk. */
  222. { &gadget5[12],109,54,53,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  223.   NULL,NULL,NULL,0x50D,NULL }, /* ääni<->pusk. */
  224. { &gadget5[13],164,27,60,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  225.   NULL,NULL,NULL,0x50E,NULL }, /* lohko->p. */
  226. { &gadget5[14],164,36,60,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  227.   NULL,NULL,NULL,0x50F,NULL }, /* xxxxx->p. */
  228. { &gadget5[15],164,45,60,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  229.   NULL,NULL,NULL,0x510,NULL }, /* lohko<-p. */
  230. { &gadget5[16],164,54,60,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  231.   NULL,NULL,NULL,0x511,NULL }, /* lohko<->p. */
  232. { &gadget5[17],176,19,8,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  233.   NULL,NULL,NULL,0x1512,NULL },    /* 4 raitaa */
  234. { &gadget5[18],186,19,8,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  235.   NULL,NULL,NULL,0x513,NULL },    /* 8 raitaa */
  236. { &gadget5[19],196,19,8,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  237.   NULL,NULL,NULL,0x514,NULL },    /* 12 raitaa */
  238. { NULL,206,19,8,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  239.   NULL,NULL,NULL,0x515,NULL }    /* 16 raitaa */
  240. };
  241.  
  242. struct Gadget far gadget6[] = {
  243. { &gadget6[1],183,36,42,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  244.   NULL,NULL,NULL,0x600,NULL }, /* Editoi */
  245. { &gadget6[2],183,49,42,10,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  246.   NULL,NULL,NULL,0x601,NULL }, /* 2×väli */
  247. { &gadget6[3],51,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  248.   NULL,NULL,NULL,0x1602,NULL },
  249. { &gadget6[4],62,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  250.   NULL,NULL,NULL,0x1603,NULL },
  251. { &gadget6[5],73,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  252.   NULL,NULL,NULL,0x1604,NULL },
  253. { &gadget6[6],84,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  254.   NULL,NULL,NULL,0x1605,NULL },
  255. { &gadget6[7],95,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  256.   NULL,NULL,NULL,0x1606,NULL },
  257. { &gadget6[8],106,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  258.   NULL,NULL,NULL,0x1607,NULL },
  259. { &gadget6[9],117,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  260.   NULL,NULL,NULL,0x1608,NULL },
  261. { &gadget6[10],128,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  262.   NULL,NULL,NULL,0x1609,NULL },
  263. { &gadget6[11],139,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  264.   NULL,NULL,NULL,0x160A,NULL },
  265. { &gadget6[12],150,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  266.   NULL,NULL,NULL,0x160B,NULL },
  267. { &gadget6[13],161,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  268.   NULL,NULL,NULL,0x160C,NULL },
  269. { &gadget6[14],172,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  270.   NULL,NULL,NULL,0x160D,NULL },
  271. { &gadget6[15],183,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  272.   NULL,NULL,NULL,0x160E,NULL },
  273. { &gadget6[16],194,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  274.   NULL,NULL,NULL,0x160F,NULL },
  275. { &gadget6[17],205,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  276.   NULL,NULL,NULL,0x1610,NULL },
  277. { &gadget6[18],216,21,9,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  278.   NULL,NULL,NULL,0x1611,NULL },
  279. { &gadget6[19],63,50,15,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  280.   NULL,NULL,NULL,0x1612,NULL }, /* Okt 1+2 */
  281. { &gadget6[20],80,50,15,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  282.   NULL,NULL,NULL,0x613,NULL }, /* Okt 2+3 */
  283. { &gadget6[21],97,50,15,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  284.   NULL,NULL,NULL,0x614,NULL }, /* Okt 3+4 */
  285. { &gadget6[23],114,50,15,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  286.   NULL,NULL,NULL,0x615,NULL }, /* Okt 4+5 */
  287. { NULL,131,50,15,9,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  288.   NULL,NULL,NULL,0x616,NULL }, /* ??? (Empty) */
  289. { &gadget6[24],9,40,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  290.   NULL,NULL,NULL,0x617,NULL }, /* <- */
  291. { &gadget6[25],29,40,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  292.   NULL,NULL,NULL,0x618,NULL }, /* -> */
  293. { &gadget6[26],63,41,49,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  294.   NULL,NULL,NULL,0x1619,NULL }, /* autom. rivinv. */
  295. { &gadget6[27],79,32,15,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  296.   NULL,NULL,NULL,0x61A,NULL }, /* v.fx */
  297. { &gadget6[28],96,32,16,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  298.   NULL,NULL,NULL,0x61B,NULL }, /* o.fx */
  299. { NULL,39,40,13,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  300.   NULL,NULL,NULL,0x61C,NULL } /* ota pikanuotti */
  301. };
  302.  
  303. struct Gadget far gadget7[] = {
  304. { &gadget7[1],15,21,90,8,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,
  305.   (APTR)&autoknobimg[5],NULL,NULL,NULL,(APTR)&propinfo[5],0x700,NULL },
  306. { &gadget7[2],15,31,90,8,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,
  307.   (APTR)&autoknobimg[6],NULL,NULL,NULL,(APTR)&propinfo[6],0x701,NULL },
  308. { &gadget7[3],15,41,90,8,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,
  309.   (APTR)&autoknobimg[7],NULL,NULL,NULL,(APTR)&propinfo[7],0x702,NULL },
  310. { &gadget7[4],15,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  311.   NULL,NULL,NULL,0x703,NULL },    /* väri 0 */
  312. { &gadget7[5],25,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  313.   NULL,NULL,NULL,0x704,NULL },
  314. { &gadget7[6],35,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  315.   NULL,NULL,NULL,0x705,NULL },
  316. { &gadget7[7],45,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  317.   NULL,NULL,NULL,0x706,NULL },
  318. { &gadget7[8],55,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  319.   NULL,NULL,NULL,0x707,NULL },
  320. { &gadget7[9],65,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  321.   NULL,NULL,NULL,0x708,NULL },
  322. { &gadget7[10],75,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  323.   NULL,NULL,NULL,0x709,NULL },
  324. { &gadget7[11],85,52,8,8,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  325.   NULL,NULL,NULL,0x70A,NULL },    /* väri 7 */
  326. { &gadget7[12],118,21,27,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  327.   NULL,NULL,NULL,0x70B,NULL },    /* nollaa */
  328. { &gadget7[13],118,31,27,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  329.   NULL,NULL,NULL,0x70C,NULL },    /* peru */
  330. { &gadget7[14],150,53,23,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  331.   NULL,NULL,NULL,0x70D,NULL },    /* ei hypi */
  332. { &gadget7[15],175,53,26,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  333.   NULL,NULL,NULL,0x70E,NULL },    /* joka 8. */
  334. { &gadget7[16],203,53,24,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  335.   NULL,NULL,NULL,0x170F,NULL },    /* soitin */
  336. { &gadget7[17],171,19,57,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  337.   NULL,NULL,NULL,0x711,NULL },    /* uusi kpl */
  338. { &gadget7[18],171,28,57,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  339.   NULL,NULL,NULL,0x712,NULL },    /* jätä soittimet */
  340. { &gadget7[19],171,37,57,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  341.   NULL,NULL,NULL,0x713,NULL },    /* poistu */
  342. { NULL,159,19,10,12,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  343.   NULL,NULL,NULL,0x714,NULL }    /* OK! */
  344. };
  345.  
  346. struct Gadget far gadget9[] = {
  347. { &gadget9[1],8,53,41,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  348.   NULL,NULL,NULL,0x900,NULL },    /* MIDI päällä */
  349. { &gadget9[2],24,34,21,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  350.   NULL,NULL,NULL,0x901,NULL },    /* Midi kyllä */
  351. { &gadget9[3],47,34,7,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  352.   NULL,NULL,NULL,0x1902,NULL },    /* Midi ei */
  353. { &gadget9[4],117,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  354.   NULL,NULL,NULL,0x903,NULL },    /* 1 */
  355. { &gadget9[5],124,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  356.   NULL,NULL,NULL,0x904,NULL },    /* 2 */
  357. { &gadget9[6],131,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  358.   NULL,NULL,NULL,0x905,NULL },    /* 3 */
  359. { &gadget9[7],138,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  360.   NULL,NULL,NULL,0x906,NULL },    /* 4 */
  361. { &gadget9[8],145,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  362.   NULL,NULL,NULL,0x907,NULL },    /* 5 */
  363. { &gadget9[9],152,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  364.   NULL,NULL,NULL,0x908,NULL },    /* 6 */
  365. { &gadget9[10],159,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  366.   NULL,NULL,NULL,0x909,NULL },    /* 7 */
  367. { &gadget9[11],166,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  368.   NULL,NULL,NULL,0x90A,NULL },    /* 8 */
  369. { &gadget9[12],173,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  370.   NULL,NULL,NULL,0x90B,NULL },    /* 9 */
  371. { &gadget9[13],180,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  372.   NULL,NULL,NULL,0x90C,NULL },    /* 10 */
  373. { &gadget9[14],187,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  374.   NULL,NULL,NULL,0x90D,NULL },    /* 11 */
  375. { &gadget9[15],194,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  376.   NULL,NULL,NULL,0x90E,NULL },    /* 12 */
  377. { &gadget9[16],201,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  378.   NULL,NULL,NULL,0x90F,NULL },    /* 13 */
  379. { &gadget9[17],208,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  380.   NULL,NULL,NULL,0x910,NULL },    /* 14 */
  381. { &gadget9[18],215,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  382.   NULL,NULL,NULL,0x911,NULL },    /* 15 */
  383. { &gadget9[19],222,26,5,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  384.   NULL,NULL,NULL,0x912,NULL },    /* 16 */
  385. { &gadget9[20],117,44,24,8,GADGHCOMP,RELVERIFY|LONGINT,STRGADGET,NULL,NULL,
  386.   NULL,NULL,(APTR)&strinfo[5],0x913,NULL },    /* Preset # str */
  387. { &gadget9[21],144,45,6,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  388.   NULL,NULL,NULL,0x914,NULL },    /* <-     v- Preset # prop*/
  389. { &gadget9[22],154,45,62,6,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,
  390.   (APTR)&autoknobimg[3],NULL,NULL,NULL,(APTR)&propinfo[3],0x915,NULL },
  391. { &gadget9[23],220,45,6,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  392.   NULL,NULL,NULL,0x916,NULL },    /* -> */
  393. { NULL,51,53,53,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  394.   NULL,NULL,NULL,0x917,NULL }    /* Syöttö */
  395. };
  396.   
  397. struct Gadget far gadgetA[] = {
  398. { &gadgetA[1],6,26,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  399.   NULL,NULL,NULL,0xA00,NULL },
  400. { &gadgetA[2],6,35,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  401.   NULL,NULL,NULL,0xA01,NULL },
  402. { &gadgetA[3],6,44,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  403.   NULL,NULL,NULL,0xA02,NULL },
  404. { &gadgetA[4],6,53,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  405.   NULL,NULL,NULL,0xA03,NULL },
  406. { &gadgetA[5],59,26,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  407.   NULL,NULL,NULL,0xA04,NULL },
  408. { &gadgetA[6],59,35,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  409.   NULL,NULL,NULL,0xA05,NULL },
  410. { &gadgetA[7],59,44,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  411.   NULL,NULL,NULL,0xA06,NULL },
  412. { &gadgetA[8],59,53,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  413.   NULL,NULL,NULL,0xA07,NULL },
  414. { &gadgetA[9],112,26,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  415.   NULL,NULL,NULL,0xA08,NULL },
  416. { &gadgetA[10],112,35,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  417.   NULL,NULL,NULL,0xA09,NULL },
  418. { &gadgetA[11],112,44,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  419.   NULL,NULL,NULL,0xA0A,NULL },
  420. { &gadgetA[12],112,53,40,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  421.   NULL,NULL,NULL,0xA0B,NULL },
  422. { &gadgetA[13],156,26,5,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  423.   NULL,NULL,NULL,0xA0C,NULL },    /* Soiton transp.: - */
  424. { &gadgetA[14],163,26,57,6,GADGHCOMP|GADGIMAGE,RELVERIFY,PROPGADGET,
  425.   (APTR)&autoknobimg[4],NULL,NULL,NULL,(APTR)&propinfo[4],0xA0D,NULL },
  426. { &gadgetA[15],222,26,5,6,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  427.   NULL,NULL,NULL,0xA0E,NULL },    /* transp.: + */
  428. { &gadgetA[16],155,44,37,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  429.   NULL,NULL,NULL,0xA0F,NULL },
  430. { &gadgetA[17],194,44,33,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  431.   NULL,NULL,NULL,0xA10,NULL },
  432. { &gadgetA[18],168,53,21,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  433.   NULL,NULL,NULL,0x1A11,NULL },
  434. { NULL,191,53,36,7,GADGHNONE,GADGIMMEDIATE,BOOLGADGET,NULL,NULL,
  435.   NULL,NULL,NULL,0xA12,NULL }
  436. };
  437.  
  438. struct Gadget far *glists[] = { NULL,gadget1,gadget2,gadget3,gadget4,
  439.     gadget5,gadget6,gadget7,NULL,gadget9,gadgetA,NULL };
  440. extern char title[]; /* med-rev.c:ssä */
  441. struct TextAttr far nsfont = { "topaz.font",8,0,0 };
  442. struct NewScreen far ns = { 0,0,320,STDSCREENHEIGHT,3,0,1,0,CUSTOMSCREEN,
  443.     &nsfont,title,NULL,NULL };
  444. struct NewWindow far nw = { 0,0,320,200,-1,-1,GADGETDOWN|RAWKEY|GADGETUP|MOUSEBUTTONS,
  445.     SMART_REFRESH|BACKDROP|BORDERLESS|ACTIVATE|NOCAREREFRESH|RMBTRAP,
  446.     &gadget1[0],NULL,NULL,NULL,NULL,0,0,0,0,CUSTOMSCREEN };
  447. struct NewWindow far pnw = { 0,16,320,56,-1,-1,NULL,NOCAREREFRESH|
  448.     SMART_REFRESH|BORDERLESS|RMBTRAP,NULL,NULL,NULL,NULL,NULL,0,0,0,0,
  449.     CUSTOMSCREEN }; /* eqalizerikkuna - käytössä vain NTSC-Amigoissa */
  450.